Option Strict Off
imports System
imports PHSRAG.Insight21.Humans
imports PHSRAG.Insight21.BusinessObjects
imports FormsManagement = PHSRAG.Insight21.FormsManagement
imports System.Collections

module Script
    sub Main()
		
		Dim answers as System.Collections.ArrayList = questAnswer.GetAnswers("StudyPopulation")
		
		if ( answers.Count > 0 ) then
			Dim primaryAnswer as FormsManagement.Answer = answers(0)
			
			if primaryAnswer.Value <> "" then
				questAnswer.Name = primaryAnswer.Value	
				questAnswer.Save( connectionString )
			end if
		
		end if
    end sub
end module